home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8701.d64 / datasetten musik (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  806b  |  25 lines
  1. 0 GOTO7
  2. 1 READA,B:B=B*10:IFA=-1THENEND
  3. 2 FORI=1TOB:SYS49152,A:NEXT:GOTO1
  4. 3 DATA160,6,80,6,55,6,40,6,28,6,28,6,20,3,20,3,20,3,20,3,28,9
  5. 4 DATA20,3,20,3,20,3,20,3,28,9,1,1,40,3,40,3,40,3,40,3,55,6,55,6,80,3,80,3
  6. 5 DATA80,3,80,3,160,8,1,2,230,6
  7. 6 DATA210,6,180,6,150,1,100,1,150,1,100,1,150,1,100,1,150,1,100,1,150,1,-1,-2
  8. 7 READA:IFA<>-2THEN7
  9. 8 FORI=49152TO49171:READA:POKEI,A:NEXT:RESTORE:GOTO1
  10. 9 :
  11. 10 REM ********************************
  12. 11 REM ***     DATASETTEN MUSIK     ***
  13. 12 REM ***  VON  ANDREAS SCHINDLER  ***
  14. 13 REM ********************************
  15. 14 :
  16. 15 REM SYNTAX :  SYS49152,A (000-255)
  17. 16 DATA120,32,253,174,32,158,183,169,7,133,1,202,208,253,169,39,133,1,88,96
  18. 17 :
  19. 18 REM  DAS LIED STEHT IN DEN DATA-
  20. 19 REM  ZEILEN 3-6.  DAS MASCHINEN-
  21. 20 REM  SPRACHEPROGRAMM IN ZEILE 16
  22. 21 :
  23. 22 REM  A GIBT DIE TONHOEHE AN
  24. 23 REM  B IST DIE ZEITDAUER
  25.